home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / basic / pbtool.exe / GETKEY.BAS < prev    next >
BASIC Source File  |  1991-10-30  |  721b  |  23 lines
  1. '----------------------------------------------------------
  2. '  PROGRAM: GETKEY.BAS         PROGRAMMER: A. KELLETT
  3. '  DATE-WRITTEN: 10/30/91
  4. '  USING POWER BASIC V2.10A (TURBO BASIC DOESN'T SUPPORT-->  END NUM%
  5. '
  6. '  THIS PROGRAM ALLOWS ENTERING SPECIFIED KEYS FROM WITHIN
  7. '  A .BAT FILE AND RETURNS CORRESPONDING ERRORLEVELs
  8. '  VERSION: 0.00    LAST UPDATED: 00/00/00
  9. '----------------------------------------------------------
  10. REM*** DO NOT CLEAR THE SCREEN !!!
  11. KEYS.ENTERED$ = UCASE$(COMMAND$)
  12. IF KEYS.ENTERED$ = "" THEN
  13.    END 0
  14. END IF
  15. VALID.KEY$ = " " + KEYS.ENTERED$
  16. DO
  17.    KEYIN$ = UCASE$(INKEY$)
  18. LOOP UNTIL INSTR(VALID.KEY$, KEYIN$) > 1
  19.  
  20. ERRLEVEL% = INSTR(KEYS.ENTERED$, KEYIN$)
  21.  
  22. END ERRLEVEL%
  23.